Prelude> fmap (map (+1) . map ((*2).(+2))) (Right [1,2,3])
Right [7,9,11]
Prelude> fmap (map (+1) . map ((*2).(+2))) (Left [1,2,3])
Left [1,2,3]
